perm filename CLEANU[T,LCS] blob sn#018230 filedate 1972-12-30 generic text, type T, neo UTF8
AL 2,TVR↔
TRAN TEMP←*.NEW/Q↔
AL↔DO CLEANUP(2)↔
|
DEL *.0,*.1,*.SAV,*.RPG[*,TVR],*.TMP[*,TVR],PPSAV.DAT[*,TVR],DIFFS.DAT[*,TVR]↔
DO CLEANUP(3)↔
|
DEL *.RPG↔
DIR [*,TVR]/Q/G↔